home *** CD-ROM | disk | FTP | other *** search
/ Family Album 2.1 / Family Album v2.1.iso / data1.cab / Common / Utilities / convertToField.tbk (.txt) < prev    next >
Encoding:
Asymetrix ToolBook File  |  2002-11-16  |  32.4 KB  |  480 lines
  1. !This program cannot be run in DOS mode.
  2. .rdata
  3. @.rsrc
  4. @.reloc
  5. Asymetrix ToolBook Application
  6. MINSTB32.dll
  7. @    (    (    K
  8. *ClassTbl*
  9. *ClassEntry*
  10. *PTABLE*
  11. *WINDOWSEG*
  12. *ICONRESTAB*
  13. *ICONRESSEG*
  14. *ICONRES*
  15. Background
  16. *OBJTABLE*
  17. *IDTABLE*
  18. *NAMETAB*
  19. Rectangle
  20. Ellipse
  21. RoundedRectangle
  22. Polygon
  23. IrregularPolygon
  24. AngledLine
  25. Curve
  26. PaintObject
  27. Picture
  28. Group
  29. Stage
  30. Button
  31. Viewer
  32. ComboBox
  33. Field
  34. RecordField
  35. Hotword
  36. *RHOTWORD*
  37. *TbxBase*
  38.     (    ewer
  39. bxBase*
  40.     (    bxBase*
  41. System
  42. bookPattern
  43. <BookPath>
  44. :HDMEDIAPATH
  45. 330,25.125,100
  46. 180,37.625,33.3125
  47. 180,85.3125,100
  48. 210,25.125,100
  49. 0,0,0
  50. 0,0,0
  51. 0,0,0
  52. 0,0,0
  53. ASYMA_CustomColors
  54. info_LastSavedBy
  55. info_LastSaved
  56. bookFillColor
  57. 3/26/01 8:33:28 AM
  58. bookLineEndStyle
  59. bookLineEndSize
  60. bookStrokeColor
  61. bookUseWindowsColors
  62. none,none
  63. bookTransparent
  64. bookLineStyle
  65. 33:23 PM
  66. qmHfDIp
  67. 3/26/01 6:33:42 AM
  68. 0103211018467574731222756
  69. ASYM_TpID
  70. openDlgLFN
  71. openFileDlgLFN
  72. saveAsDlgLFN
  73. tbdlg.DLL
  74. enterbackground
  75.     linkDLL "tbdlg.
  76.         STRING openDlgLFN(
  77. FileDlgLFN(
  78. 4,INT)
  79. >saveAsDlgLFN(
  80. scriptfield
  81. to handle enterpage
  82.     set pagen to pagenumber of this page && "of" && pageCount of this background
  83.     set text of field "pages" of this background to pagen
  84.     send enterpageclipart
  85. to handle idle
  86.     set pageobjs to objects of this page
  87.     step j from 1 to itemcount(pageobjs)
  88.         pop pageobjs
  89.         pageobj = it
  90.         if name of pageobj = "picturegroup"
  91.     firstframe = firstframe of pageobj
  92.     numFrames = numframes of pageobj -- number of pictures
  93.     -- info is a userProp that has three values (1 userProperty is
  94.     --  quicker to read than 3). The values in info are:
  95.     -- <time last flip occurred>,<current frame displayed>,
  96.     -- <time to delay between frames>
  97.     info = info of pageobj
  98.     -- get values into local vars
  99.     pop info into lastTime
  100.     pop info into lastFrame
  101.     delay = info
  102.     newTime = timeGetTime()
  103.     vref = this window
  104.     -- check if delay period has passed. If so, show next frame:
  105.     if ntimes of pageobj < repetitions  of pageobj or repetitions of pageobj = -1
  106.         if newtime - firstTime of pageobj>= delayAnim of pageobj or clicked of pageobj is true
  107.             if newTime - lastTime >= delay
  108.                 newFrame = lastFrame + 1
  109.                 if newframe >= firstframe + numframes
  110.                     ntimes of  pageobj = ntimes of  pageobj +1
  111.                     newframe = firstframe
  112.                 end
  113.                 set lockscreen of vref to true
  114.                 if version of pageobj = 2
  115.                     show button newFrame of pageobj
  116.                     hide button lastFrame of pageobj
  117.                 else
  118.                     show picture newFrame of pageobj
  119.                     hide picture lastFrame of pageobj
  120.                 end
  121.                 set lockscreen of vref to false
  122.                 -- update info userProp with new values
  123.                 push newframe onto info
  124.                 push newTime onto info
  125.                 set info of pageobj to info
  126.             end
  127.         end
  128.         end
  129. to handle leavepageclipart
  130.     set pageobj to objects of this page
  131.     step j from 1 to itemcount(pageobj)
  132.         pop pageobj
  133.         if name of it = "picturegroup"
  134.             pic = item 2 of info of it
  135.             if version of it = 2
  136.                 hide button pic of it
  137.             else
  138.                 hide picture pic of it
  139.             end
  140.         end
  141. to handle initanimation pageobj
  142.     linkdll mmsystem
  143.         dword timeGetTime()
  144.     info of pageobj = timeGetTime(),firstframe of pageobj,item 3 of info of pageobj
  145.     set firstTime of pageobj to item 1 of info of pageobj
  146.     ntimes of pageobj = 0
  147.     objn = firstframe of pageobj
  148.     objl = numframes of pageobj
  149.     lastf = objn+objl-1
  150.     if version of pageobj = 2
  151.         step framei from objn to lastf
  152.             hide button framei of pageobj
  153.         end
  154.     else
  155.         step framei from objn to lastf
  156.             hide picture framei of pageobj
  157.         end
  158. to handle enterpageclipart
  159.     set pageobj to objects of this page
  160.     step j from 1 to itemcount(pageobj)
  161.         pop pageobj
  162.         if name of it = "picturegroup"
  163.             clicked of it = false
  164.             send initanimation it
  165.         end
  166. dle enterpageclipart
  167.     set pageobj to objects of this page
  168.     step j from 1 to itemcount(pageobj)
  169.         pop pageobj
  170.         if name of it = "picturegroup"
  171.             clicked of it = false
  172.             send initanimation it
  173.         end
  174. pages
  175. scriptfield2
  176. to handle buttonclick
  177.     system returnval,tbook
  178.     returnval = 0
  179.     --hide this window
  180.     --hide viewer "help" of tbook
  181.     close this window
  182.     maxYield = 0
  183.     while maxYield < 1000
  184.         mmYield
  185.         mmYield
  186.         mmYield
  187.         maxYield = maxYield +1
  188. &Convert clipart book
  189. enterpage
  190. reader
  191. leavepage
  192. &File
  193. &Open...    Ctrl+O
  194. &Save    Ctrl+S
  195. Save &As...
  196. saveas
  197. Print Set&up...
  198. printsetup
  199. &Print Pages...    Ctrl+P
  200. printpages
  201. Prin&t Report...
  202. printreport
  203. Send &Mail...
  204. sendmail
  205. &Run...
  206. E&xit    Alt+F4
  207. &Edit
  208. &Undo    Ctrl+Z
  209. Cu&t    Ctrl+X
  210. &Copy    Ctrl+C
  211. &Paste    Ctrl+V
  212. paste
  213. C&lear    Del
  214. clear
  215. Select &All    Shift+F9
  216. selectall
  217. Select Pa&ge    Shift+F12
  218. selectpage
  219. &Find...    Ctrl+F
  220. &View
  221. &Author    F3
  222. author
  223. &Status Bar    F12
  224. statusbar
  225. Si&ze to Page    F11
  226. sizetopage
  227. Show &Hotwords    F9
  228. showhotwords
  229. &Next Page    Alt+Right
  230. &Previous Page    Alt+Left
  231. previous
  232. &First Page    Alt+Up
  233. first
  234. &Last Page    Alt+Down
  235. &Back    Shift+F2
  236. &History...    Ctrl+F2
  237. history
  238. &Text
  239. &Character...    F6
  240. character
  241. &Paragraph...    F7
  242. paragraph
  243. &Regular    Ctrl+Space
  244. regular
  245. &Bold    Ctrl+B
  246. &Italic    Ctrl+I
  247. italic
  248. &Underline    Ctrl+U
  249. underline
  250. Stri&keout    Ctrl+K
  251. strikeout
  252. Superscrip&t/Subscript
  253. superscriptSubscript
  254. &Normal Script
  255. normalscript
  256. Su&bscript    Ctrl+L
  257. subscript
  258. Su&perscript    Ctrl+Shift+L
  259. superscript
  260. &Help
  261. &Contents    F1
  262. contents
  263. VBSAMPLE
  264. default
  265. buttonclick
  266. 4bookpath,sizemainwin
  267.     filterlist = "Thumbnail Book (*.tbk),*.
  268. OpenFileDlgLFN("Choose a 
  269.         newbook = 
  270. convertBook 
  271. = default
  272. isobject(
  273.         scriptText = 
  274. "scriptfield"
  275.         scriptext2 = 
  276. "scriptfield2"
  277. s"nodlg"
  278. /= ""
  279. pageobj 
  280.             picontarget = 
  281. $"&Cancel"
  282. convertObjects 
  283. "Not a 
  284. 4newpicgroup    
  285. i <> 2
  286. "picturegroup"
  287. version 
  288. exportit 
  289. deleteobject(
  290.     firstframe = 
  291.     numFrames = numframes 
  292. pictures
  293.     lastframe = 
  294.     vref = 
  295. pici 
  296.         exfilename = "
  297. +&".BMP"
  298.         bmpgraphic = 
  299. <OverWrite
  300.     psize = 
  301.     ppos = 
  302. convertit "
  303. removeresources
  304.  resTypeList = "bitmap,cursor,
  305. ,palette"
  306. resList = resourceList(
  307. temp = "resNum = 
  308. " && \ 
  309.  unused
  310. " && 
  311. , fnum,lnum, animsize,animpos,
  312.     firstgif = 
  313.     lastgif = 
  314.     i = 
  315. ci <= 
  316. 500,500
  317.         selbut = 
  318.         gimage = 
  319. & i & ".
  320. --        importGraphic 
  321.         --rname = "b"&i
  322.         rinfo = resourceinfo 
  323.         xsize = 
  324. clientToPageUnits(
  325.         rgbfill 
  326. 255,255,255
  327.         defaultAllowdrop 
  328.         stretchgraphic 
  329.         excludeTab 
  330. defaultAllowDrag 
  331.         drawdirect 
  332.         usechromakey 
  333.         --keycolor 
  334. 192,192,192"
  335. 255,255,255"
  336.         normalgraphic 
  337.         i = i+1
  338.     i = 
  339. ci <= 
  340. B" && 
  341. & i & 
  342.         i = i+1
  343.     hotlink 
  344.     movep 
  345.     sizep 
  346.     removep 
  347.     clicked 
  348.     delayanim 
  349.     firsttime 
  350.     ntimes
  351.     winsize
  352. = 12000,8010
  353.     repetitions 
  354.     Delay 
  355.     Repetitions 
  356. "animate" 
  357. /"back1"
  358.     i = 
  359. ci <= 
  360.         i = i+1
  361. init 
  362. increase 
  363. decrease the speed 
  364. animation.
  365. milliseconds.
  366. value
  367. -- initialize 
  368. widget
  369. Xmmsystem
  370. timeGetTime()
  371. firstTime 
  372. entering a 
  373. notifybefore 
  374. notifyafter 
  375.             pic = 
  376. .-+    +L
  377. convertBook
  378. bookpath
  379. Thumbnail Book (*.tbk),*.tbk
  380. newbook
  381. filterlist
  382. Choose a Book to open.
  383. default
  384. dOpenFileDlgLFN
  385. buttonclick
  386. scriptext2
  387. scriptText
  388. &Cancel
  389. convertObjects
  390. scriptfield2
  391. button
  392. Not a book
  393. scriptfield
  394. nodlg
  395. picontarget
  396. pageobj
  397. convertBook
  398. ,,H.,
  399. exportit
  400. !Oversion
  401. picturegroup
  402. newpicgroup
  403. picontarget
  404. pageobj
  405. convertObjects
  406. numframes
  407. convertit
  408. bmpgraphic
  409. psize
  410. export
  411. exfilename
  412. firstframe
  413. firstframe
  414. numFrames
  415. exportit
  416. 1,    #?
  417. 1,    #?
  418. ,,H.,
  419. ,,H.,
  420. of this book
  421. resNum = item 1 of resourceInfo of
  422. bitmap,cursor,icon,menuBar,palette
  423. remove resource
  424. resTypeList
  425. resList
  426. resNum
  427. resTypeList
  428. resList
  429. resNum
  430. removeresources
  431. firstframe
  432. Repetitions
  433. image
  434. xsize
  435. button
  436. repetitions
  437. picturegroup
  438. newpicgroup
  439. movep
  440. ntimes
  441. psize
  442. selbut
  443. "Oversion
  444. firstgif
  445. delayanim
  446. Chotlink
  447. firsttime
  448. rname
  449. rinfo
  450.  clicked
  451. false
  452. _Rwinsize
  453. gimage
  454. sizep
  455. fHremovep
  456. numframes
  457. Delay
  458. convertit
  459. delay
  460. firstTime
  461. ntimes
  462. timeGetTime
  463. timeGetTime
  464. mmsystem
  465. firstframe
  466.  clicked
  467. picturegroup
  468. false
  469. pageobj
  470. enterpage
  471. picturegroup
  472. !Oversion
  473. pageobj
  474. leavepage
  475.  clicked
  476. picturegroup
  477. false
  478. pageobj
  479. reader
  480.